#!/usr/bin/perl

use strict;
use warnings;

my $data_file = "shspanningtreedetail.txt";
print "$data_file \n";

open (DATA, "$data_file") or die "can't open $data_file $!";
my @array_of_data = <DATA>;


my $_;


foreach $_ (@array_of_data)
{
if ($_ =~ /(^ VLAN\d\d\d\d)|(^  Port..\d\d\d\d)/)
{
print "VLAN: $1\n";
print "PORT: $1\n";

        }
}



close (DATA);



